From: Michael Albinus Date: Tue, 17 Nov 2009 14:57:39 +0000 (+0000) Subject: * net/tramp-gvfs.el (tramp-gvfs-handle-write-region): Set file X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~9408 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=809fae80e55aea134d63369956da8241d6905345;p=emacs.git * net/tramp-gvfs.el (tramp-gvfs-handle-write-region): Set file modification time. --- diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index a04f891b3f5..a07b5df0a1e 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el @@ -727,6 +727,10 @@ is no information where to trace the message.") (signal (car err) (cdr err))) (delete-file tmpfile))))) + ;; Set file modification time. + (when (or (eq visit t) (stringp visit)) + (set-visited-file-modtime (nth 5 (file-attributes filename)))) + ;; The end. (when (or (eq visit t) (null visit) (stringp visit)) (tramp-message v 0 "Wrote %s" filename))